home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 41.zip / BS1 part 41 / The Director v1.2.adf / library / planewipe < prev    next >
Text File  |  1988-05-08  |  607b  |  24 lines
  1.  
  2. REM  this is a plane-at-a-time wipe routine
  3. REM  to use, include in your script, and then
  4. REM  set the variable "plafrom" to be the
  5. REM  number of the buffer to wipe from, and then 
  6. REM  do a GOSUB 9200.
  7.  
  8. REM  uses variables:  plaw, plah, plad, plafrom, plac
  9. REM  and line number 9200.  Also sets FIXPALETTE 0
  10. REM  and PLANES -1 when done.
  11.  
  12. 9200 resolution -1,plaw,plah,plad
  13.      playb=1:rem plane mask
  14.      fixpalette 1
  15.      for plac=1 to plad
  16.        planes playb
  17.        if plac=plad/2:fixpalette 0:endif
  18.        wipe plafrom,0,0,0,0,-1,-1,320,(plac-1)%4
  19.        playb=playb+playb:rem next plane
  20.      next
  21.      planes -1
  22.      return
  23.  
  24.